home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / f90 / epsilon.z / epsilon
Text File  |  1998-10-30  |  3KB  |  84 lines
  1. EPSILON(3I)                                            Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      EEPPSSIILLOONN - Returns a positive number near 1 in the numeric model
  6.  
  7. SSYYNNOOPPSSIISS
  8.      EEPPSSIILLOONN (([XX==]_x))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, and IRIX systems
  12.  
  13. SSTTAANNDDAARRDDSS
  14.      Fortran 90
  15.  
  16. DDEESSCCRRIIPPTTIIOONN
  17.      The EEPPSSIILLOONN intrinsic function returns a positive model number that is
  18.      almost negligible compared to unity in the model representing numbers
  19.      of the same type and kind type parameter as the argument.  It accepts
  20.      the following argument:
  21.  
  22.      _x  Must be of type real.  It can be scalar or array valued.
  23.  
  24.      EEPPSSIILLOONN is an inquiry function.  The name of this intrinsic cannot be
  25.      passed as an argument.
  26.  
  27. RREETTUURRNN VVAALLUUEESS
  28.      The result type is a scalar of the same type and kind type parameter
  29.      as _x.  The result has the value
  30.       (1-_p)
  31.      _b      where _b and _p are as defined in the model for real numbers
  32.      representing numbers of the same type and kind type parameter as _x.
  33.      For information on the real number model, see the MMOODDEELLSS(3I) man page.
  34.  
  35. EEXXAAMMPPLLEESS
  36.      The following code fragment was run on several systems:
  37.  
  38.           REAL(KIND=4) r4
  39.           REAL(KIND=8) r8
  40.           REAL(KIND=16) r16
  41.           REAL rd
  42.           PRINT *,'EPSILON r4=',EPSILON(r4)
  43.           PRINT *,'EPSILON r8=',EPSILON(r8)
  44.           PRINT *,'EPSILON r16=',EPSILON(r16)
  45.           PRINT *,'EPSILON rd=',EPSILON(rd)
  46.           END
  47.  
  48.      The results of this test case on IRIX systems are as follows:
  49.  
  50.           EPSILON r4= 1.192092896E-7
  51.           EPSILON r8= 2.22044604925031308E-16
  52.           EPSILON r16= 1.23259516440783094595582588325435348E-32
  53.           EPSILON rd= 1.192092896E-7
  54.  
  55.      The results of this test case on CRAY T90 systems that support IEEE
  56.      floating-point arithmetic are as follows:
  57.  
  58.           EPSILON r4= 1.192092896E-7
  59.           EPSILON r8= 2.22044604925031308E-16
  60.           EPSILON r16= 1.92592994438723585305597794258492732E-34
  61.           EPSILON rd= 2.22044604925031308E-16
  62.  
  63.      The results of this test case on UNICOS systems, except for CRAY T90
  64.      systems that support IEEE floating-point arithmetic, are as follows:
  65.  
  66.           EPSILON r4= 1.192092895507812E-7
  67.           EPSILON r8= 1.4210854715202E-14
  68.           EPSILON r16= 5.04870979341447555463506281781E-29
  69.           EPSILON rd= 1.4210854715202E-14
  70.  
  71.      The results of this test case on UNICOS/mk systems are as follows:
  72.  
  73.           EPSILON r4= 1.192092896E-7
  74.           EPSILON r8= 2.22044604925031308E-16
  75.           EPSILON r16= 2.22044604925031308E-16
  76.           EPSILON rd= 2.22044604925031308E-16
  77.  
  78. SSEEEE AALLSSOO
  79.      MMOODDEELLSS(3I)
  80.  
  81.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  82.      printed version of this man page.
  83.  
  84.